﻿Public Class SPFLogin
    Private Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        sSpfUser = Me.RadTextBox1.Text
        sSpfPs = Me.RadTextBox2.Text
        blnIWA = Me.CheckBox1.Checked
        Me.Hide()
    End Sub


    Private Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
        Me.Hide()
    End Sub

    Private Sub SPFLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Me.CheckBox1.Checked Then
            Me.RadTextBox1.Enabled = False
            Me.RadTextBox2.Enabled = False
        End If
        Me.RadTextBox1.Text = sSpfUser
        Me.RadTextBox2.Text = sSpfPs
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If Me.CheckBox1.Checked Then
            Me.RadTextBox1.Enabled = False
            Me.RadTextBox2.Enabled = False
        Else
            Me.RadTextBox1.Enabled = True
            Me.RadTextBox2.Enabled = True
        End If
    End Sub
End Class
